setClass("InternalClusterScore",contains="ClusterScore",
		representation(
				"VIRTUAL"
		),
		prototype=prototype(
				.description="Virtual Cluster Internal Score class"
		
		)
)  
#helper functions
isOneCluster <- function(clusters){
	if(length(unique(clusters)) ==1){
		return(TRUE)	
	}
	return(FALSE)
}


#global functions
#methods
setMethod("ScoreSet",
		signature="InternalClusterScore",
		definition=function(.Object,inputSet,clusters,...){
			#check for X element and clusters
			callNextMethod(.Object,inputSet,clusters,...)
			
		}
) 
